   1 .
   2 .KENO II 2.0
   3 .
   4 PRINT "PROGRAM DISPLAYS KENO CARDAND CASH REMAINING. YOU   PICK 1 TO 15 NUMBERS USINGHAND CONTROLLER.",
   5 PRINT " NUMBER OFPICKS IS TALLIED NEXT TO  GO. IF YOU PICK 1 TO 14   NUMBERS, PICK GO TO START.
   6 PRINT "THE COMPUTER PICKS AND    DISPLAYS 20 NUMBERS AND   CALCULATES PAYOFF.",
   7 PRINT " TO SEE PAYOFF TABLE PUSH '÷'",;IF KP="÷"GOTO 2000
   8 PRINT 
   9 INPUT "STAKE"C
  10 T=0;CLEAR ;GOSUB 900;C=C-1;CY=-33;CX=43;PRINT "$",#5,C,
  20 GOSUB 800;IF N<81GOSUB 700;IF T<15GOTO 20
  30 GOSUB 600;GOSUB 500;IF H=0B=0;GOTO 40
  35 B=@(R+H-1);C=C+B
  40 CX=-59;PRINT "OF",#3,T,,"GOT",H,,"PAYS$",#5,B,
  45 IF C<1STOP
  50 IF TR(1)GOTO 10
  60 GOTO 50
 500 R=0;IF T=1RETURN 
 510 FOR S=1TO T-1;R=R+S;NEXT S;RETURN 
 600 H=0;FOR U=1TO 20;V=RND (80)-1;V=V÷10;W=RM;X=-73+W×16;Y=39-V×9;IF PX(X-6,Y+4)=0GOTO 680
 610 IF PX(X,Y)=0U=U-1;GOTO 690
 620 H=H+1
 630 GOTO 685
 680 IF PX(X,Y)U=U-1;GOTO 690
 685 BOX X,Y,11,7,3
 690 NEXT U;RETURN 
 700 IF PX(X-6,Y+4)T=T+1;GOTO 720
 710 T=T-1
 720 CY=-33;CX=-53;PRINT #2,T,;RETURN 
 800 X=-73;Y=39;BOX X,Y,13,9,3
 810 I=X;J=Y;X=X+JX(1)×16;Y=Y+JY(1)×9;X=X+16×(X<-75)-16×(X>75);Y=Y+9×(Y<-25)-9×(Y>40)
 815 IF X=-73IF Y=-24IF JY(1)=-1Y=-33
 820 BOX I,J,13,9,3;BOX X,Y,13,9,3;IF TR(1)=0GOTO 810
 830 N=(X+73)÷16+1-(Y-39)÷9×10;RETURN 
 900 FOR Y=0TO 7;CY=39-Y×9;FOR X=1TO 10;CX=-91+X×16;PRINT #2,X+Y×10,;NEXT X;NEXT Y;CY=-33;CX=-75;PRINT "GO",;RETURN 
2000 PRINT ;FOR T=1TO 15;GOSUB 500;FOR Q=1TO T;PRINT #3,"PICK",T," GET",Q," WIN $",#5,@(R+Q-1);NEXT Q;NEXT T;GOTO 9
3000 :PRINT ;LIST ;FOR A=0TO 119;PRINT "@(",#1,A,")=",@(A);NEXT A;PRINT ":RETURN ;NT=1";:RETURN ;NT=1
>
@(0)=3
@(1)=15216
@(2)=21582
@(3)=12605
@(4)=13
@(5)=1023
@(6)=0
@(7)=3072
@(8)=0
@(9)=256
@(10)=10752
@(11)=0
@(12)=256
@(13)=1024
@(14)=28928
@(15)=0
@(16)=0
@(17)=256
@(18)=2304
@(19)=13312
@(20)=3
@(21)=0
@(22)=256
@(23)=768
@(24)=23040
@(25)=2048
@(26)=7
@(27)=0
@(28)=0
@(29)=0
@(30)=5120
@(31)=-26112
@(32)=-23551
@(33)=31
@(34)=0
@(35)=0
@(36)=0
@(37)=2304
@(38)=23040
@(39)=29184
@(40)=20486
@(41)=70
@(42)=0
@(43)=0
@(44)=0
@(45)=768
@(46)=11520
@(47)=20224
@(48)=23553
@(49)=17426
@(50)=72
@(51)=0
@(52)=0
@(53)=0
@(54)=512
@(55)=5120
@(56)=-29184
@(57)=-6144
@(58)=-27645
@(59)=14353
@(60)=74
@(61)=0
@(62)=0
@(63)=0
@(64)=0
@(65)=2560
@(66)=19200
@(67)=31744
@(68)=-12287
@(69)=-11257
@(70)=11312
@(71)=76
@(72)=0
@(73)=0
@(74)=0
@(75)=0
@(76)=1536
@(77)=7168
@(78)=-14336
@(79)=20992
@(80)=24579
@(81)=-14327
@(82)=-22478
@(83)=97
@(84)=0
@(85)=0
@(86)=0
@(87)=0
@(88)=512
@(89)=4096
@(90)=19968
@(91)=-17408
@(92)=4098
@(93)=10254
@(94)=-22493
@(95)=-22431
@(96)=97
@(97)=0
@(98)=0
@(99)=0
@(100)=0
@(101)=768
@(102)=2048
@(103)=8192
@(104)=11264
@(105)=8193
@(106)=-15357
@(107)=-8183
@(108)=-22482
@(109)=-22431
@(110)=97
@(111)=0
@(112)=0
@(113)=0
@(114)=0
@(115)=512
@(116)=2048
@(117)=5376
@(118)=19200
@(119)=-4096
>
